(comment bps 125000 list 400000 fixnum 400000 flonum 40000 array 40000) (princ '|Init file loaded|) (terpri)